(SETQ FOO @(XS OS BS P1 W)) (SETQ XS @(1 2 3)) (SETQ OS @(4 5 7)) (SETQ BS @(6 10 11)) (SETQ P1 @(1 4 2 5 3 7)) (SETQ W T)